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OF 


“ 
| OPCSSHARE_DEVNA SHARE_FULL_DEVNAME 1b-sep-19 4 O1:53:4 VAX-11 BLiss-32 V4.0-742 1 
14-Sep-1984 12:50:5 DISKSVMSMAS TER: COPCOM.SACISHARE.B32;1°9" (1) 


3 1 001 MODULE OPCSSHARE_DEVNAME ZTITLE "SHARE_FULL_DEVNAME ° 

: § 098 , LANGUAGE (BL 18839)» 

; = 4 

; g 6 5 

: § 0006 EPSPS LISESII ISIS ESTEE C TTT TCT iiiiit 

3 e 

3 8 008 ‘® COPYRIGHT (c) 1978, 1980, 1982, 1984 B 2 

eB 009 0 i* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. > 

; 19 39 ™ ALL RIGHTS RESERVED. * 

e . ® 

; 19 1 is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 

5 3% 1 '® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH Lic ENSE AND WITH THE * 

as 14 0 '* INCLUSION OF ofne ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 

A 0015 t COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

: 16 0016 ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

; 7 917 0 ie TRANSFERRED. . 

: '@ ® 

; 19 0019 0 is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 

; 20 0020 0 ie SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 

; 1 00 1 0 ie CORPORATION. . 

: '@ t 

; 38 00 : 0 i= DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

; 2 90 4 9 is SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . 

: 'e « 

; @& 0026 '® . 

4 a7 bo56 See RRERE RARER RARER RARER AAAAAA TAREE ERATE AAAAAREAAAAA EAA Aeeeee 

; oe 0028 0 

3 9 ik 0 I++ 

; 0 0030 0 ! FACILITY: 
3 1 0031 0! 

3 0033 0! 

$ 4 0034 Q ! ABSTRACT: 
; 5 0035 0! 

; 6 0036 0! This file contains routines shared by OPCOM, REPLY and REQUEST. 
3 7 0037 0! Each routine is compiled as a separate module so that unnecessary | 
; 8 0038 0! code is not included at Link time. 

3 9 0039 0! ; 
; 40 0040 0 ! Environment: 

: 43 boa? 6 i VAX/VMS ti | 
3 operating system. 

3 rk 004 8 : 

3: «666 0044 ! Author: 

: 65 0045 ! 

; 46 004 4 CW Hobbs 

; 47 0047 0! 

; «648 0048 ' Creation date: 

; | «649 0049 ! 
; $0 0050 : 31 July 1983 

: 2} 0051 ‘ 

3 2¢ 0038 : Revision history: 

; | «54 054 ! vO3-003 CWH3169 CW Hobbs 55-May-1984 

3 5 55 : Second pass for cluster-wide OPCOM 

3 § 2$ : = Make DVI$_xxxNAM an input item for SHARE _FULL_DEVNAME so 

$ 005 : that calling routine can pick a name. 


SE ERA NE DEWHA SHARE _FULL_DEVNAME 1b-se set 7 9333766 VAX=11 Bliss-32 V4.0-742 2 


0- 
D1ISKSVMSMASTER: COPCOM. SRCIJSHARE .B32; 1 (1) 


; es 28 : - Delete the entire timeout gount module, it is no longer 

; 2 039 necessary with the queued Sbrkthru mechanism. 

3; 6} 061 ! v03-002 CwH3002 Cw Hobbs 16-Sep-1983 

3 $¢ bO¢ ! Add timeout routine and VM jacket routines. 

; 6 06 : 

; 66 064 loo 

3; 6 065 : BEGIN 

H $9 boo 1 LIBRARY ‘SYSSLIBRARY: LIB"; 

3 o8 3 ; LIBRARY ‘'LIB$:OPCOMLIB'; 

3 76 26 : GLOBAL ROUTINE SHARE _FULL_DEVNAME (DEVNAME : Sref_bblock, NAME_CODE) = %SBTTL ‘share_full_devname (devname, | 
; 7 $07 1 !e¢ 

3 oF Bot 7 : } Functional description: 

3s 3 0075 1! Take the device name posers as input, and return a fully qualified device spec. This will include 
3; 0076 1! the SCS nodename if that is defined. Note that the descriptor is OWN storage inside of this routine 
. Fr 0077 1! so that this routine is non-reentrant. 

3; pore 1! 

; 79 0079 1°! Input: 

; 80 0080 1! 

; 8 0081 1! DEVNAME : Address of a quadword buffer descriptor that 

; 8¢ 0082 1! oints to the buffer containing the device name 

ae 0083 1! NAME _CODE : DVIS_xxxNAM, the device name item code 

; «B84 0084 1! 

; 85 0085 1 ! Implicit Input: 

; 686 0086 1! 

3 OT 0087 1! None. 

; «688 0088 1! 

; 0089 1 ! Output: 

: 90 0090 1! 

ae 0091 1! None. 

3 3 0092 1! 

; 9 0095 1 ! Implict output: 

; 0094 1! 

; «9S 0095 1! None. 

; * 0096 1! 

; «97 0097 1 ! Side effects: 

; «98 0098 1! 

; 299 0099 1! None. 

: 100 0100 1! 

: 101 919) 1 ! Routine value: 

: 196 1 ; 1! ; - 
3 9? 0104 ! : Descriptor pointing to fullname. If unable to modify name, input descriptor will returned. 
: 105 105 1 

3 106 196 BEGIN ! Start of SHARE_FULL_DEVNAME 

: 108 198 OWN 

3; 109 1 NAME _BUFFER VECTOR CMAX OEMS NAM, BYTE] 

> 110 110 NAR : VECTOR CONG] INITIAL (6,NAME_BUFFER), 

; («49024 111 C_RAME BUFFER : VECTOR MAX ore wan BYTE 

3 Wg ie SFE “NAME-DESC =: VECTOR C2, CONG] INITIAL (6,SEC NAME _BUFFER), 

: 11 11 SPODLED LONG 

> 194 114 DVI_LIST VECTOR C10, LONG) INITIAL ¢ 


Get the name, if any problem then return the address of the input descriptor 
“ist £33} < eis; 6716, $> . (NNAME Cobe 0 R DVIS$C_ SECO om ts tg emp ees na 
iF NOT tSGETDVIU’ (DEVNAM=, DEVNAME. ITAL ST=D DvI_CIST) 
RETURN .DEVNAME; 
IF _ .NAME_DES. (0) EQL 0 
RETURN .DEVNAME; 
If the device is spooled, return secondary characteristics 
IF .SPOOLED 
IF .SEC_NAME_DESC (0) NEQ 0 
RETURN SEC_NAME_DESC; 


RETURN NAME_DESC; ! If we get this far, it's ok. 
1 END; i End of SHARE FULL  DEVNAME. 
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i a ee el ed ed el ed eed 


PELL LPP Ew 


ONAOVEWN $0 ODNOUES WN OO ONOUES WN" ODOONOu 
SOOOCOCOCOCOCOCOOCOOCOOCOOCOOCOCOOOOOOC OOOO OOOOO 


-TITLE OPCSSHARE_DEVNAME SHARE_FULL_DEVNAME 
IDENT \V04-000\ 


-PSECT SOWNS,NOEXE,2 
00000 NAME ae: 
00000000 00040 NAME_DESC: 


-LON 0 
00000000" 00044 ADDRESS NAME _BUFFER 
00048 SEC_NAME ~ ot 


B 
00000000 00088 SEC_NAME_ sti % 
00000000" it -ADDRESS SEC_NAME _BUFFER 
0090 SPOOLED: ~BLKB & 
00000040 LIST: 


0094 DvI_ an th 
00000000" 00000000' 00098 “ADDRESS NAME BUFFER, NAME_DESC 
aB90008 
00000000' 00° 


AO -LON 
0 As +ADDRESS SEC_NAME_ BUFFER, SEC_NAME_DESC 


64 


OPCSSHARE_DEVNA SHARE _FULL_DEVNAME $ep-1984 01:53:4 VAX-11 Bliss-32 V4.0-742 
v04 share_full-devname (devname, name_code) 15-se0-1984 93:35:68 Disk SVMSMA STER : COPCOM. SRCISHARE. B32; 929 
1 MAX_DEV_NAM, ! Add item code at run time 
1 NAME BUFFER, 
1 BARE DESC 
1 x_BEv NAM ! Add code at run time 
1 See =NARE NBUEFER, 
SEC" NAME-DESC, 
(ovis SPL OR DVISC_SECONDARY)*16 OR 4), ! Is the secondary spooled? | 
5; 


A. | 
OPCSSHARE _DEVNA sane _FULL_DEVNAME 16- -1984 VAX=11 Bliss-32 V4.0-742 4 
v046 share_full-devname (devname, name_code) 1 Ha 1984 93: 33: 8 DISKSVMSMASTER: cOPtOM. SRCISHARE .B32; 429 ea 
SSItHES. ONE AONE SERN, 1 
00000000 90000000 be LONG 0. 0 ; 


-EXTRN SYSSGETDVIW 
-PSECT S$CODES,NOWRT,2 


0004 00000 .ENTRY SHARE_FULL_DEVNAME, Save R2 ; 0070) 
‘ 0000' CF 3 00002 MOVAB T : 
02 =A 08 AC BO 0000 MOVW NAME CODE, DVI_LIST+2 ; 0129 | 
OE A2 08 Ac 1 a9 9900¢ B1SW3 NAME _CODE, ath “_LIST#14 : 0130 
E 7C 0001 CLRO ol Ep) : 0131) 
7E 7C 00014 CLRO ~t3p) : 
52 DD 00016 PUSHL R2 : | 
04 AC DD 0001 PUSHL DEVNAME : | 
7E 7C 00018 CLRQ. = =(SP) : 
000000006 00 8 FB 0001D CALLS #8, SYSSGETDVIW : 
05 0 £9 00024 BLBC geiel 
AC A2 05 00027 TSTL | NAME_DESC : 0135. 
0 if 0002A BNEQ : | 
50 04 AC DO 0002C 18 MOVL §DEVNAME, RO + 0137 
04 00030 RET : 
OA FC A2 €E9 00031 28 BLBC SPOOLED, 3$ 3 0141, 
7 a ¥ D3 90035 TSTL EC_NAME_DESC ; 0143) 
05 13 00038 BEQL . : 
50 F4  A2 YE OOO3A MOVAB SEC_NAME_DESC, RO ; 0145) 
04 0003E RET : | 
50 AC A2 9E O003F 38 MOVAB NAME_DESC, RO : 0147. 
04 00043 RET + 0148 | 


; Routine Size: 68 bytes, Routine Base: S$CODE$S + 0000 


; 149 0149 1 END 

; 150 0150 O ELUDOM 

: PSECT SUMMARY 

: Name Bytes Attributes 

: SOWNS 188 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, -NOPIC.ALIGN(2) 
; S$CODES 68 NOVEC *NOWRT. RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


“2% Coe ee) @ ee ad) ‘ee, eee Symbols -------- Pages Processing 
File Total Loaded Percent Mapped Time 


8 A. 
vosso00 ~ “att Seonans (devname, name_code) 18: i 1382 93: 23: 8 be $ 


K 
; B5eeSOUASB:LéseomeossaopcomLie.c32;1 643 3 0 1098 $8: 


V4.0=74 
: COPCOM. SRCISHARE. B32; ? 3 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:SHARE/OBJ=OBJ$:SHARE MSRC$:SHARE/UPDATE=(ENHS: SHARE) 
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N 6 
-FAOBU SHARE _FAO_BUFFER 16-Sep-1984 91 :33766 VAX-11 Bliss=32 V4.0-742 


share_fao_buffer (ctrstr, args) 14-Sep-1984 
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4 Page 6 
DISKSVMSMASTER: COPCOM. SRC IJSHARE .832; 1 (2) 


pope OPCSSHARE_FAOBUF (IDENT = ‘VO03-001') = TITLE ‘SHARE_FAO_BUFFER’ ZSBTTL 'share_fao_buffer (ct | 


LIBRARY ‘SYSS$LIBRARY:LIB'; 
LIBRARY ‘LIB$:OPCOMLIB'; 


95 rh ROUTINE SHARE_FAO_BUFFER (ctrstr : REF VECTORC2], args : VECTOR [4]) = &%SBTTL ‘SHARE_FAO_BUFFER’ 


'e¢ 


' 
FUNCTIONAL DESCRIPTION: 


INPUTS: 


ctrstr Address of FAO control string descriptor 
args Any number of additional arguments 


IMPLICIT INPUTS: 
none 
OUTPUTS: 
none 
IMPLICIT OUTPUTS: 
none 
' ROUTINE VALUE: 
Address of formatted descriptor 
SIDE EFFECTS: 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
' 
i 
i 
i 
i 
i 
' 
i 
i 
i 
i 
none 


DESC : 
F AOBU 


VECTOR (2, LONG), 
OBUF : VECTOR f 


512, BYTE) 


DESC [0] = 512; 
DESC £1] = FAOBUF; 


SFAOL (CTRSTR=.CTRSTR, OUTLEN=DESC, OUTBUF=DESC, PRMLST=ARGS); 
RETURN DESC; 
END; 


' Set up result descriptor 


TITLE OPCSSHARE_FAOBUF SHARE_FAO_BUFFER 
“IDENT \V03-001\ 


-PSECT SOWNS,NOEXE,2 


This routine passes an ascii string through the FAO system service with any number of specified para. 


7 
Sa aa it SHARE _FAO_BUFFER 16-8 at 9: 23:68 


SHARE —F AO_BUF FER 
p08 DESC: .BLKB g 
0008 FAOBUF: .BLKB 12 


~EXTRN SYSS$FAOL 
-PSECT S$CODES,NOWRT,2 


A Bliss-32 V4.0-742 7 
I SMASTER: COPCOM. SRCIJSHARE .B32; . * (2), 


VAX=11 
DISKSVMSM 


| 
0004 00000 ENTRY SHARE_FAO_BUFFER, Save R2 ; 0157, 
53 0000" cf 9E 900¢ MOVAB a : 
t 020 F 3¢ 000 MOVZ2WL #512, DESC + 0195 
04 A2 08 A2 9E 0000C MOVAB. FAOBUF, DESC+4 + 0196 
08 AC 9F 00011 PUSHAB ARGS >; 0198 | 
52 DD 00014 PUSHL R : | 
52 DD 90016 PUSHL ; 
04 AC DD 0001 PUSHL ; | 
000000006 00 04 FB 00018 CALLS *SYSSFAOL 3 
50 62 9E 000¢2 MOVAB OE ies : 0200 | 
04 000 RET : 0201 | 
; Routine Size: 38 bytes, Routine Base: $CODE$ + 0000 
| 
; 203 0202 1 | 
: 204 0203 1 END ! End of SHARESFAOBUF 
: 205 0204 0 ELUDOM 
; PSECT SUMMARY | 
; Name Bytes Attributes 
: SOWNS 520 NOVEC, WRT. RD .NOEXE.NOSHR, LCL, REL. CON,NOPIC.ALIGN(2) | 
> $CODES 8 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON.NOPIC.ALIGN(2) | 
3 Library Statistics 
Pia Bee ee eS a Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time | 
> _$255$DUA28:(SYSLIBILIB.L32;1 18619 3 0 1009 00:01.8 | 
> 7$255$DUA28: COPCOM. OBJ JOPCOMLIB.L32;1 633 0 0 4 00:00.7 


: COMMAND QUALIFIERS 


—_— 


? 
FOS OO te SHARE-FAG"BUFFER 1b-sep Boeri obe $2i8bise — Sieedunthastenccopcom cacasware.es21°%" ¢2 


~oD 


; BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:SHARE/OBJ=OBJ$:SHARE MSRC$:SHARE/UPDATE=(ENHS$: SHARE) 


———$—$——_——___— —— a - - ~ = - + 


D ae 
OPCSSHARE_VM  OPCSSHARE_VM 16-Sep 1:53:4 VAX-11 Bliss-32 V4.0-742 9 | 
908-001 OPCSGET_VM (Len, addr) 14-Sep 71382 93; :50:5 DISKSVMSMASTER: LOPCOM. SRCIJSHARE .B32; f29 * (3) 
: 14 a6 9 MODULE OPCSSHARE_VM (IDENT = ‘V03-001") = UTITLE 'OPCSSHARE_VM'  %SBTTL ‘OPCSGET_VM (Len, addr)’ | 
: 209 07 1 | 
: 210 08 1 LIBRARY 'SYSSLIBRARY:LIB': 
; 1 0 99 i LIBRARY ‘LIB$:OPCOMLIB'; 
; ig 6 11 1 GLOBAL ROUTINE OPCSGET_VM (Len, addr) = | 
> 216 0 19 BEGIN 
. Pec y 0 1 ++ 
; 16 14 i 
3 4 13 i FUNCTIONAL DESCRIPTION: 
: 219 19 i This routine calls LIBSGET_VM 
: 320 0218 i 
: $52 0520 5 LOCAL 
: $5 221 STATUS; 
: 226 0 3¢ 
: 225 022 STATUS = LIBSGET_VM (.LEN, .ADDR); 
; 226 0224 
:  2e7 0225 2 RETURN .STATUS; 
; 228 0226 1 END; 


-TITLE OPCSSHARE_VM OPCSSHARE_VM 
-IDENT \V03-001\ 


.EXTRN OPCSGET_VM, LIBSGET_VM | 
-PSECT S$CODES,NOWRT,2 | 


0000 00000 -ENTRY OPCSGET_VM, Save nothing ; 0211 
7E 04 AC 70D 00002 mMOva LEN, -(SP) ; 0223 

000000006 00 02 FB 00006 CALLS #2, LIBSGET_VM $ 
04 00000 RET ; 0226 


; Routine Size: 14 bytes, Routine Base: S$CODE$ + 0000 


STATUS = LIBSFREE_VM (.LEN, .ADDR); 
RETURN .STATUS; 
END; 


3; 220 0227 1 

: 230 0228 1 GLOBAL ROUTINE OPCSFREE_VM (len, addr) = ZSBITL ‘OPCSFREE_VM (len, addr)' 
; 231 $94 BEGIN 

; $36 02 9 +4 

3 234 0933 : FUNCTIONAL DESCRIPTION: 

; 236 $534 : This routine calls LIBSFREE_VM 
: 237 0235 ! 
; 238 0236 ten 
3 239 0237 2 LOCAL 
; 40 8 STATUS; 

: 26 9 

: 4g 40 

3 4 41 

3; 246 4g 

: 4 


45 


———OOOOEOEOEOEOEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeeeS EOE SS -— - 


ib? 
OPCSSHARE_VM OPCSSHARE_VM 6-Sep-1984 01:5 VAX-11 Bliss-32 v4 
yOs~001 3e8 3:e8 gt 


OPCSFREE_OM (Len, addr) 4-Sep-1984 12:5 


«EXTRN OPCSFREE_VM, LIBSFREE_VM 


0000 00000 -ENTRY OPCSFREE VM, Save nothing 
7E 04 AC 7D 00002 MOVQ ie (SP) 
000000006 00 02 FB 00006 CALLS @# LIBSFREE VM 
04 00000 RET 
; Routine Size: 14 bytes, Routine Base: S$CODE$ + OO0E 
re 0244 
0345 1 END ! End of OPCSSHARE_VM 
S28 0246 0 ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
SCODES 28 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
Library Statistics 
>earane-manenes Symbols ooocee-- Pages Processing 
File Total Loaded Percent Mapped Time 
.$255$DUA28: CSYSLIBILIB.L32;1 18619 0 0 1099 60:01'.8 
*$255$DUA28: COPCOM.OBJ JOPCOMLIB.L32;1 633 4 0 4 00:00. 


COMMAND CUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:SHARE/OBJ=OBJ$: SHARE MSRC$:SHARE/UPDATE=(ENHS: SHARE ) 


BE a PE! nS nee NS CED IOC ERY 


.0- 74 42 
DISKSVMSMASTER: COPCOM. SRCJSHARE .B32; ,° 


GLOBAL 
OPER_KEYTBL : VECTOR C((MAX_OPERBIT®#2)+1),LONG] PRESET (C0] = MAX_OPERBIT®*2); | 


ES, | 
OPCSSHARE_LOOKO SHARE_LOOKOPERBIT 16-Sep-1984 01:53:4 VAX=-11 Bliss-32 V4.0-742 Page 11 
y08-001 shoractatt anor hoptl 1e-Sep-19 4 93:23:88 DISKSVMSMASTER: COPCOM, SRCJSHARE.B32:1-" (4) 
| 
0 47 0 MODULE OPCSSHARE_LOOKOPERBIT (IDENT = 'v03-001") = ZTITLE "SHARE_LOOKOPERBIT' ZSBTTL 'share_init_o 
49 1 
: LIBRARY 'SYSSLIBRARY:LIB’; | 
4 LIBRARY "LIB$:OPCOMLIB'; 
56 EXTERNAL ROUTINE 
ef share_trnlog : NOVALUE; 
59 LITERAL 
60 5 MAX_OPERBIT = 24; | 
8) 2 
° 6 OPER_NAME : VECTOR CMAX_OPERBIT,LONG] PRESET | 
64 36 ="OPC$_CENTRL, 1] = OPC$_PRINT 2] = OPC$_TAPES, | 

265 6 = OPCS"DISKS, 4] = OPCS$~DEVICE J] = OPC$~CARD 
66 é 6] = OPCS"NTWORK, 7] = OPC$~CLUSTER 8] = OPC$~SECURITY, 
67 6 9] = OPCS"REPLY, 19 = OPCS"SOFTWARE, 11] = OPCSFILL_11, 

68 6 \§ = OPC$_OPER1, 13] = OPC$_ ¢. 14] = OPC$_OPER3, 

269 6 15] = OPCS"OPERS. 16] = OPC$-OPERS. 17] = OPC$"OPERG, | 
70 26 18] = OPC$"OPER7 19] = OPC$"OPERB 20] = OPCS$"OPERS 
4 5 21) = OPC$~OPER1O, 22] = OPCS"OPERII, 23] = OPCS$-OPER12); | 
ig § 

7% 

8 
76 
77 


ROUTINE SHARE_INIT_OPER_KEYTBL : NOVALUE = 


MEN $$ O OONOA VE WIN (OOO NAU EWN @O ODNAUE WO CONOUS WN O COM 


POR RORORORORORORONORORORONOROROROPONONORUPOPOUNNONND 4 ss 


Ne eee eer ew wel wlelolelolololololololololol ool ol alolololol ol! 


3 
$f 8 
278 oe OS i’ 

80 37 ; FUNCTIONAL DESCRIPTION: | 
sf 27 i This routine performs run-time initializations on the operator name keyword table. 
28 28 : 
284 $f ' INPUTS: 
285 8 ! 
soe $3 None. 

88 38 ; IMPLICIT INPUTS: 

s' 4 none 

32 28 OUTPUTS: 

3% 33 ; none 

96 3 IMPLICIT OUTPUTS: 

98 9 ; none 

90 $7 ROUTINE VALUE: 

0 39 i none 

0 69 ! 

Be 1 } SIDE EFFECTS: 

06 88 i none 


7 
CPCSSHARE_LOOKO SHARE_ OPERBIT 1S-se $1984 01:53:4 VAX=11 Bliss-32_ V4.0-742 Pa 
vOS-001 share_init_oper_keytbl 12=808=13Re 93:23 8 DISKSVMSMASTER: COPCOM. SRCJSHARE .B32; 1 . 
3 68 § ¢ LOCAL 
; 310 buff : VECTOR FSs. evre 
; 311 § desc : VECTOR (2, LONG) PRESET (C1) = buff), 
; ig msg, 
3 351 10 len, 
: 14 11 adr : REF VECTOR C, BYTE), 
: 1? ig , ‘Status; 
: 9 0314 i Loop through the name vector, for each non-zero entry fetch the message text and create a string 
: is 0 i } from the message. Store a pointer to the string descriptor back in the vector. 
: 320 19 § incr + FROM 0 TO MAX_OPERBIT=1 
: 1 0318 dO 
$ ¢ 0319 BEGIN 
3 0320 IF (msg = .oper_name [.iJ) EQL 0 ! We assume no holes 
3 $e 0321 THEN 
: $2 3 § Ssignal_stop (ss$_badparam); 
; i4 Bs : Reset the buffer length, and get the message text. Any problem is fatal. 
; 309 $356 desc (0) = 64; 
: HS Oise 4 vd (status = Sgetmsg (msgid=.msg, msglen=desc, bufadr=desc, flags=1)) 
: 3 B382 $signal_stop (.status); 
: 36 033 Allocate and initialize a counted string, store info in the keytbl 
: 336 $338 len = .desc [0] + 1; ! String plus ASCIC count byte : 
; 338 Bee 4 A (status = OPCSGET_VM (Len, adr)) ! Get memory, store address right into keytable 
: 339 the $signal_stop (.status); 
3 re 033 adr (0) = .desc (0); ! Set the ascic count byte 
: 1 0338 CHSMOVE (.desc [0] os C1}, adr (1)); ! Copy the string to the new memory 
; 306 0339 oper_keytbl bigs. i}+i = adr; ' Store the address in the keytbl 
; 34 0340 3 oper keytbl (2e.i)4¢2) = .i; ! Store the index in the keytbl 
3 4 0341 END; 
; 5 tk: 
; 46 034 RETURN; 
: 347 0344 1 END; 


-TITLE OPCS$SHARE_LOOKOPERBIT SHARE _LOOKOPERBIT 
IDENT \v03-001\ 


-PSECT SOWNS,NOEXE,2 
00058123 000581168 00058113 00058108 00058103 000580FB 00000 RE: 


60699, 360707, 360715, 360723, 6073. e\.4 
00058153 00058148 00058143 00058138 0005813 005 i 0018 oO 8° 60747, 360755, 360763, 360771, - ; 
00058183 00058178 00058173 00058168 0005816 0058158 00030 60779, oper. 60795, 360803, 360811, - ; 
00058185 000581AB 000581A35 00058196 00058193 00058188 00048 ont}. tt} 7, erty 60843, 360851, - ; 
60859, 360867, 360875, 36088 : 

-PSECT S$GLOBALS,NOEXE,2 


seo 
~™ 


3 | 


H 7 
OPCSSHARE_LOOKO SHARE_LOOKOPERBIT 16-Sep-1984 01:53:4 VAX=-11 Bliss-32 V4.0-742 Page 13 
rh ti shard tate. neat hesthl 19-88-1382 93:33:88 DISKSVMSMASTER: COPCOM.SRCISHARE.B32:1° >" (4) 
00000030 00000 OPER_KEYTBL:: 
LONG 48 : 
00004 ;BLKB 192 
.EXTRN SHARE_TRNLOG, LIBSSTOP 
-EXTRN SYSSGETMSG, OPCSGET_VM 
.PSECT $CODES,NOWRT,2 
O3FC 00000 SHARE_INIT_OPER_KEYTBL: 
«WORD “Save R2,R3,R4,R5,R6,R7,RB,RI : 0273 
SE & AE 9E 9002 MOVAB =80(SP). SP : 
AE D4 000 CLRL ODES + 0308 | 
Oc AE 10 AE 9€ 00009 MOVAB BUFF, DESC+4 F 
56 04 906 CLRL ; 0317) 
59 0000'CF46 09 00010 1$ MOVL QPER_NAMECI], MSG : 0320, 
04 1 00016 BNE 5 : 
14 DD 9001 PUSHL #20 : 0322) 
35 11 OOOIA BRB 4$ : | 
08 AE 40 BF 9A O00IC 28 MOVZBL , DESC ; 0326. 
7E 01 7D 00021 ova -(SP) : 0327 | 
10 AE OF 00 4 PUSHAB DESC F 
146 AE 9F 00027 PUSHAB DES ; 
59 DD O002A PUSHL MS ; | 
000000006 00 0S FB 000¢¢ CALLS #5, SYSS$GETMSG : 
58 50 DO 000 MOVL * STATU ; 
16 58 £9 00036 BLBC STATUS, 3$ ; 
04 AE 08 AE 01 €¢1 00039 ADDL3 , DESC, LEN : 0333, 
SE DD 0003F PUSHL : 0334. 
08 AE 9F 00041 PUSHAB LEN : 
00006 CF 02 FB 00044 CALLS #2, OPCSGET_VM : 
58 50 DO 00049 MOVL RO. STATUS ; 
OA 58 €8 0004C BLBS STATUS, 5$ : | 
58 DD OOO4F 3$ PUSHL STATUS > 0336) 
000000006 00 01 FB 00051 4$ CALLS #1, LIBSSTOP ; 
04 00058 RET ; 
57 6E D0 00059 5$ MOVL R : 0337 
67 08 AE 90 0005¢ MOVB. DESC, (R7) : 
01 «aA? OC BE 08 AE <8 00060 MOVC3 DESC. @DESC+4, 1(R7) : 0338 
50 56 01 78 00067 ASHL #1, f, : 0339 
0000'CF40 57 00 00068 MOVL 7. OPER_KEYTBL+4(RO) : 
56 oN 00071 ASH «6so#1. II, R > 0340 | 
0000'cCF40 4 D0 0075 MOVL I, OPER_KEYTBL+8(ROJ ; 
91 56 17 §3 00078 AOBLEQ #23, I,71$ : 0317 
04 0007F RET > 0344 


; Routine Size: 128 bytes, Routine Base: S$CODE$ + 0000 


7 
OPCSSHARE_LOOKO SHARE_LOOKOPERBIT tose 1984 01:53:4 VAX=11 Bliss=32 V4.0-742 P 14 
vOs~001 share_lookup_oper_bit 1 ~Sep-19 4 93:35:98 DISKSVMSMASTER: COPCOM, SRCISHARE .832;1 > (5) 


: 4 a2 1 23 ROUTINE SHARE_LOOKUP_OPER_BIT (TEXT : Sref_bblock) = ZSBTTL ‘share_lookup_oper_bit’ 
: 1 5 \+¢ 

: 988 tS 5 i 

3 ? rs } FUNCTIONAL DESCRIPTION: 

; 55 1 ‘ This routine converts a text string for an operator name into that operators bit index in 
; 28 ¢ } the operator attention mask. 

3; Soe 27 ' INPUTS: 

3 339 0355 ! 

; 360 ‘ None. 

: 1 : 

3 oe 58 ' JMPLICIT INPUTS: 

; 0359 ! 

3 toe none 

; 366 0 $6 ' OUTPUTS: 

; 036 ‘ 

; 368 0364 ! none 

:; 369 0365 ! 

: 370 tre] ' IMPLICIT OUTPUTS: 

3; ST 0367 ! 

: 37 0368 ! none 

; 37 B26? ! 

3 74 0370 ' ROUTINE VALUE: 

s 375 tia ! 

: 76 0 i : none 

3s 377 037 ! 

s 378 0374 ' SIDE EFFECTS: 

3; 379 0375 : 

; 380 Ber8 ‘ none 

; 381 037 len 

; 0378 

: 8 $44 LOCAL 

Py 84 0 80 idx, 

3 TH 0381 status; 

; 386 Bee 

3; 387 038 IF .oper_keytbl (1) EQ. 0 

; 388 0384 THEN : : 
3 44 Bee share_init_oper_keytbl (); ! Initialize the oper_keytbl structure 
; 391 0387 ' Translate the name if possible 

; 4 tt ! 

; it, 34 share_trnlog (text); 

3 95 0381 : Convert the name to the index value stored in the keyword table 
3 39 $398 status = LibSlookup_key (.text, oper_keytbl, idx); ! Use the Library routine 
: $05 94 IF NOT .status 

: 100 9 _—, i l_stop (opc$_val 1, .text tat 1, .text) 

3 signal_stop (opc$_valuerr, 1, .text, .status, 1, .text); 

; 601 3 ~ — 

; 60 98 RETURN .idx; 

; 40 99 END; 


EE Ree LOOKS SHARE _LOOKOPERBIT 
v03-001 share_lookup_oper_bit 


Fs 
ep-19 
ep-19 


000 4 
5E 04 -C¢ 
0000° CF 9 
5 09 
FF70 =—séCF 0 FB 
06 aC ODD 4 1$: 
0000G CF gt FB 1 
E 4 01 
0099" CF OF Bete 
4 Ag 0D 1E 
00000000G 00 9 4 0021 
1A O€ Boo 8 
04 AC DD 00028 
1 0d 000 
0 DD 000 
04 AC 0D 000 
01 odd 000 
0005825C F DD 00037 
000000006 00 6 FB 00030 
04 00044 
50 6E DG 00045 2$: 
04 00048 
; Routine Size: 73 bytes, Routine Base: S$CODES + 0080 
: 404 0400 1 END 
; 405 0401 0 ELUDOM 
; PSECT SUMMARY 
: Name Bytes Attributes 
; SOWNS 96 NOVEC, WRT, RD ,NOEXE,NOSHR, 
; SGLOBALS 196 NOVEC. WRT. RD .NOEXE.NOSHR, 
; SCODES 201 NOVEC~NOWRT. RD; EXE ,NOSHR, 
; Library Statistics 
3 eee reece Symbo ls ee eS ee 
: File Total Loaded Percent 
3 ~ $52 38DUAGB: PSvs sO2L! -L32;1 18619 30 8 
: _$255$DUA OPCOM.0BJ JOPCOM.18.L32;1 633 4 


Be 3: 35: 38 Disk SVMGMAS TeR-COPCOM, SRCISHARE. B32; (79 


.EXTRN LIBSLOOKUP_KEY 
.ENTRY SHARE_LOOKUP_OPER_BIT, Save nothing 
SUBL2 
TSTL OPER_KEYTBL+4 
BNEQ si 
CALLS #0, SHARE_INIT_OPER_KEYTBL 
PUSHL TEXT 
CALLS #1, SHARE_TRNLOG 
PUSHL SP 
PUSHAB OPER_KEYTBL 
PUSHL TEXT 
CALLS #3, L 18S, QOKUP_KEY 
LBS STATUS, 2$ 
PUSHL 
PUSHL #1 
PUSHL STATUS 
PUSHL TEXT 
PUSHL 
PUSHL #351052 
CALLS #6, LIBSSTOP 
MOVL IDX, RO 
RET 


Pages Processing 
Mapped Time 
100 701. 

8 00:9 
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Kk 7 
OPCSSHARE_LOOKO SHARE_LOOKOPERBIT 16-Sep-1984 01:53: VAX=11 Bliss-32_V4.0-74 | 
vos-001 share lookup_oper_bit 10738871382 93:35:88 ISKSVM ASTER COPCOM. SACISHARE.B32:1°%° (3S 


: COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:SHARE/OBJ=OBJ$:SHARE MSRC$:SHARE/UPDATE=(ENHS: SHARE) 
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405 


| ak lek etek ee eke ek ke ek al ek ee nt ne ae ae at ee 


een ee ee eee ne ae 
MEUM SO OONOU EWN (OOO VNOUSWNO 


04 
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7 
T_OPER_NAME 1$-se 1984 01:53:4 VAX-11 Bliss-32 V4.0-7 
t_oper_name 102 800= 1386 93:35:88 


LIBRARY ‘SYSS$LIBRARY:LIB'; 
LIBRARY ‘LIB$:OPCOMLIB'; 


SL OGat ROUTINE SHARE_INIT_OPER_NAME : NOVALUE = 


++ 
FUNCTIONAL DESCRIPTION: 
This routine performs run-time initializations on the operator name vector. 
INPUTS: 
None. 
IMPLICIT INPUTS: 
none 
OUTPUTS: 
none 
IMPLICIT OUTPUTS: 
none 
ROUTINE VALUE: 
none 
SIDE EFFECTS: 


none 


Define the vector of message codes that describe the text associated with each of the known 
attention bits. Undefined bits have a zero message code associated with them. The order of the 
entries must coincide with the order of the bits that are defined, including any undefined bits. 
The run-time initialization of this vector is to take each non-zero entry, fetch the message text 
associated with that entry, and store a pointer to a string descriptor for the message text. 


GLOBAL 


OPER_NAME : VECTOR [64,LONG] PRESET ( 

= OPC$_CENTRL, 1) = OPC$_PRINT 2 = OPCS_TAPES, 
= OPC$"DISKS, 4) = OPCS"DEVICE = OPC$~CARD 

6] = OPCS"NTWORK, 7) = OPC$~CLUSTER 8] = OPCS$"SECURITY. 

9] = OPCS"REPLY, 19 = OPCS"SOFTWARE, 11) = OPCSTFILL_11, 

iF = OPCS"OPER1, 13} = OPCS"OPER2, 14] = OPCS“OPERS, 

15) = OPCS"OPERS. 16] = OPCS"OPERS. 17} = OPCS“OPERG. 

18} = OPC$"OPER7 19] = OPC$"OPERB 20 = OPC$"OPER 

21) = OPCS~OPER1O, 22] = OPCS"OPERII, = OPCS$"OPER12); 


42 Pag 
DISKSVMSMASTER: COPCOM. SRCJSHARE .B32;1 
BAe 9 4 OPCSSHARE_INITOPERNAM (IDENT = ‘v03-001"') = ZTITLE ‘SHARE_INIT_OPER_NAME’  %SBTTL ‘share_init_o 

4 1 


M 7 
OPCSSHARE_INITO ee NIT_OPER_NAME 16-Sep 1:53:4 VAX-11 Bliss-32 V4.0-742 ge 18 
yOs+O01 share_ -{ it: _oper_name 14-Sep 71382 93; 33: 75 DISKSVMSMASTER: cOPtOM. SRCISHARE .B32; * (6) 
: 464 459 LOCAL 
; 465 460 buff : VECTOR £S¢. errt? 
; 46 461 desc : VECTOR (2, LONG) PRESET (C1) = buff), 
; msg, 
; 468 46 adr : REF VECTOR C, LONG), 
3 : i tee ; status; 
3; 471 466 i Loop through the name vector, for each non-zero entry fetch the ee text and create a string 
: of Beer : from the message. Store a pointer to the string descriptor back in the vector. 
: 474 0469 INCR i FROM 0 TO 63 
3; 475 470 dO 
: 476 471 IF (msg = .oper_name [.iJ) NEQ 0 
; 477 47 THE 
; 478 047 BEGIN 
: 479 0474 ' 
3 rt 98 } Reset the buffer length, and get the message text. Any problem is fatal. 
: 48 047 desc (0) = 64; 
; 48 0478 4 IF NOT (status = $getmsg (msgid=.msg, msglen=desc, bufadr=desc, flags=1)) 
; 484 0479 THEN 
: 485 0480 $signal_stop (.status); 
; 486 0481 : 
; rt 14 gee ; Allocate and initialize a descriptor and string 
° . i 
: 489 0484 4 IF NOT (status = OPCSGET_VM (ZREF (8), adr)) 
: 490 0485 THEN 
; 491 0486 $signal_ stop (.status); 
: 492 0487 oper name Czi] = .adr; ! Replace the message code with the descriptor address 
3; 493 0488 3 adr [0] = .desc (0); ' Place the string Length in the descriptor 
: 4 0489 4 = NOT (status = OPCSGET VM (adr (OJ, adr C1))) 
: 495 0490 THEN 
3 0491 $signal_ 5S top,f -Status); 
; 497 049 CHSMOVE« (.desc COJ, .desc (1), .adr (1); 
; 498 0493 2 END; 
3 0494 2 
; 501 0496 1 END; 


-TITLE OPCSSHARE_INITOPERNAM SHARE_INIT_OPER_NAME 
-IDENT \V03-001\ 


-PSECT S$GLOBAL$,NOEXE,2 
00058123 00058118 00058113 0005810B 00058103 000580FB 00000 eR Es 


00058153 00058148 00058143 00058138 00058133 00058128 00018 iit ee te rained : gona: a4 
00058183 00058178 00058173 00058168 00038183 058158 00030 tate 60787. 360795. 360803. 360811. - : 
00058183 000581AB 000581A3 00058198 00058193 00058188 00048 60819, 60827, 60835. 6084 ; 360851, - 


00060 -BLKB 160 


-EXTRN bs Haro LIBSSTOP 
-EXTRN OPCSGET_ 


-PSECT SCODES ,NOWRT 2 


R 


; Routine Size: 129 bytes, Routine Base: S$CODE$ + 0000 


N 
OPCSSHARE_INITO SHARE_INIT_OPER_NAME 16-Sep-1984 3:4 VAX-11 Bliss-32 V4.0-742 ge 1 

v03-001 share_init_oper_name 14- ae: Z 93: 33: “8 DISKSVMSMASTER: COPCOM. SRCISHARE .832; °? (6) vO 

01FC 00000 ENTRY SHARE _ INIT_OPER_NAME, Save R2,R3,R4,R5,R6,- ; 0408 : 

SE AE 9E 00002 MOVAB RO tSP), : | ; 

08 AE D4 000 CLRL _—CODESSC > 0461. ; 

OC AE 10 AE 9€ 0000 MOVAB BUFF, DESC+4 : : 

56 04 O00E CLRL + 0469 ; 

58 0000'CF46 D9 01 1$ MOVL § OPER_NAMECIJ, MSG + 0471) : 

a3 18 BEQL 4$ : | : 

08 AE 40 8F 9A 0001 MOVZ2BL #64, DESC 3 0477) ; 

7E 1 7D 00010 Ova #1, =(SP) : 0478 : 

10 AE i 00 9 PUSHAB DESC : : 

14 AE F 000 PUSHAB DESC ; : 

58 DD 00026 PUSHL : | ; 

000000006 99 9° FB 00028 CALLS Ree SYSSGETMSG : | F 

5 0 vO 000¢F MOVL RO. STAT : : 

36 57 £9 000 : BLBC ATUS, 33 ; : 

04 AE 9F 0003 PUSHAB %D + 0484 ; 

04 AE 08 DO 00038 MOVL #8, 4(SP) : | ; 

04 AE 9F 0003C PUSHAB 4(§P) : : 

00006 CF 02 FB 0003F CALLS #2, OPCSGET_ vM : | ; 

57 50 DO 00044 MOVL RO, : ; 

21 57 €9 00047 BLBC erATO gh "8 : : 

0000'CF46 04 AE DO 0004A MOVL ADR OPER _NAMECI] : 0487, ; 

04 BE 08 AE DO 00051 MOVL Dest, @ADR + 0488 | ; 

52 04 AE DO 00056 MOVL R2 >; 0489 | ; 

04 A2 99F O005A PUSHAB c( (Rd) ; F 

08 AE DD 0005D PUSHL : | ; 

00006 CF 02 FB 00060 CALLS he. OPCSGET _VvM : | ; 

57 50 DO 00065 MOVL RO, STATUS : ; 

OA 57 £8 00068 BLBS STATUS, 3 : ; 

57 DD 00068 2$: PUSHL STAT + 0491 : 

000000006 00 01 FB 0006D CALLS #1, LIBS$STOP : ; 

04 00074 RET : ; 

04 82 OC BE 08 AE 28 00075 3$: MOVC3 DESC, @DESC+4, a4(R2) + 0492 : 

90 56 3F F3 0007C 4$: AOBLEQ #63, I, 1$ > 0471 ; 

04 00080 RET + 0496 : 


; 502 0497 1 END 
503 0498 0 ELUDOM 


Z PSECT SUMMARY 
: Name Bytes Attributes 


SGLOBAL$ 256 
SCODES 1 


56 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, baefte'o§ Big ptt 
29 NOVEC.NOWRT, RD, EXE.NOSHR, LCL. REL. CON.NOPIC.ALIGN(2) 


OPESSHARE.INITO SNARE INIT OPER, NAME 18-00-1986 01:55:46 yaNedT aise 32_ 


4.0742 0 
PCOM-SACISHARE.B32:1°°" (65 


o< 


Library Statistics 


; ecccecee Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 

i _$255$DUA28:(SYSLIBILIB.L32;1 18619 27 0 1009 00:01.8 
: _$255$DUA 8: OPCOM.OBJ JOPCOMLIB.L32:1 633 2 4 00:06. 

; COMMAND QUALIFIERS 


BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:SHARE/OBJ=0BJ$:SHARE MSRC$:SHARE/UPDATE=(ENHS: SHARE ) 


suis fibinlatiitimenenbaieteconeititendamaaianneapiaipeisinintemaamitadbeses — 


8 
VOSO01 =? Shareztentog (name) 1fcgeo- 198 92:30:38 DT SKSUMEMASTERSCOPCOM.SRCISHARE.832;1°%° (9) va 

05 499 9 MODULE OPCSSHARE_TRNLOG (IDENT = ‘VO03-001") = TITLE ‘SHARE_TRNLOG’  &SBTTL ‘share_trnlog (name)' | 
$s $01 : BEGIN 

3361 LIBRARY SETSELGBCON ib!" 
5 504 . 

1 $08 Foon ROUTINE SHARE_TRNLOG (NAME : $Sref_bblock) : NOVALUE = 

: oF ! Functional description: 

; , Recursively translate a logical name. 

} ! Input: 

} } name - Address of dynamic string descriptor for input name 


Implicit Input: 
None. | 
Output: 
name - Receives a new dynamic string 
Implict output: 
None. 
Side effects: 


MiEWN OO DONAUESWN—ODOONOUSWN—O0M 


WNNAIWIWPnonenofnonofneoforny 


None. 
Routine value: 
None. 


BEGIN ! Start of share_trnlog 


buf : $bvector [256], 
in_dsc : VECTOR f , LONG), 
out_dsc : VECTOR (2, LONG), 
status; 


pie <aihnd-aake-i eee 


AUS WN—OOONOUS WN —O0OaOn 


If the input string was is not dynamic, scream and shout. 
it .gnene Cdsc$b_class] NEQ dsc$k_class_d 
$signal_stop (ss$_badparam); 
Copy the input string to the local buffer 
CHSMOVE (.name Cdsc$w_length], .name Cdsc$a_pointer], lcl_buf); 
Set the input and output descriptors up 


Re ee Be Oe Oe ee Be Se Se Be ee Fe Se Be Be Be Se Be Bete Se Se Se Se Se Se Se Se Se Se Be Oe Be Se Be we Se Oe Se Se Oe HOH Se Soe Oe Oe FHS Se SH Oe ase Be Se ae 
. 
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Ow eee eal eal eal eal al eal eal al a) al ahah aba ab ab eah ah sb sh ak ahah ala ealeal eal ealeleslealele.le.le.le. Oe. ee. wee ew) 
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VAX-11 Bliss-32 v4 
STER: 


LE OPC$S ue _TRNLOG SHARE_TRNLOG 
\V03-001\ 


LIBSSTOP, Macatee 


SHARE STOP. Save R2,R3,R4,R5,R6,R7 


. 8 
OPCSSHARE_TRNLO SHARE_TRNLOG 16-Sep-1984 01 4 
y0s-001 share_trnlog (name) 12-8 08- 1 3b2 95 33 38 
:; 56 in_dsc [0 -name Cds $w_length]; 
; 2 $ in-dsc Ef : ict b a 
; &% § out _dsc { j= fer? ae 
; 66 209 | Try up to ten times to translate the name 
; is 056¢ inc i FROM 0 TO 10 
BAA wee 
; 2f6 B2e8 } We didn't find the end, give an error 
Pe BE iat eee 
; 278 B28 $signal_stop (opc$_valuerr, 1, .name, ss$_toomany|nam); 
; 278 B278 Set up the output descriptor 
: 380 097% out_dsc [0] = 256; 
; 266 b278 H Attempt to translate 
: 584 0578 3 status = $trnlog (lLognam=in_dsc, rsllen=out_dsc, rslbuf=out_dsc); 
: HFA B22 tog ttetus EQL ss$_notran “! No tranlation, we are done 
: 587 0581 EXITLOOP; 
; 3 b28¢ ad -Status 
; aay Bee 3 $signal_stop (.status); 
; 236 B26 ; : Get ready for the next loop 
: 594 0588 3 in.dsc (0) = .out_dsc (0); 
ae mt) 
; 44 $44) Copy the local string to the output 
3 223 0398 : if NOT (status = str$copy_dx (.name, out_dsc)) 
; 601 0595 $signal_stop (.status); 
3 one 0596 
; 60 0597 RETURN; 
3; 604 0598 1 END; 
TIT 
- IDENT 
~EXTRN 
-EXTRN STRSCOPY 
-PSECT SCODES.NOURT., 2 
OOFC 00000 - ENTRY 
57 000000006 00 9€ Heit OVAB “2935 
5E FEFO CE 43 aa MOVAB et (SP), 
56 04 AC 00 OOO0E MOVL NAM , RO 


55 


0505 


0546 


8 
OPCSSHARE_TRNLO SHARE_TRNLOG 1bese -1984 01:53:4 VAX-11 Bliss-32 V4.0-742 3 
$0804 share_trnlog (name) 12786871382 93:25:88 DISKSVMSMASTER: COPCOM. SRCJSHARE .B32; ia oe oF 
02 03 Ab 9} O12 CMPB 3(R6), #2 : 
04 13 00 18 BEQL 1$ : 
14 0D 0001 PUSHL #20 + 0548 
6B 11 1A BRB 6 3 
10 AE 04 B86 66 28 1C 1$ MOVC3 (R6), @4(R6), LCL_BUF ; 0552. 
08 AE 66 3C 0 MOVZ2WL (R6), I ; 0356 | 
OC AE 19 AE 9E MOVAB LCL_BUF,~IN_DSC+4 + 0557) 
06 AE 1 AE 9E 000 B MOVAB LCL~BUF, OUT_DSC+4 ; 0558) 
2 D4 000 CLRL I 3 0562 | 
OA D1 000 é 2$ CMPL | #10 : 0568. 
13 19 000 BLSS é : 
7E 0374 gf 3¢ 99 7 MOVZ2WL #884, -(SP) : 0570. 
6 DD 0003c PUSHL R6 : 
01 DD 000 F PUSHL 1 : 
0005825¢ 8F DD 0004 PUSHL #361052 : 
67 04 FB 00046 CALLS #4, LIBSSTOP : 
4 00049 RET : 
6E 0100 8F 3C 0004A 3$ MOVZWL #256, OUT_DSC : 0574 
7E 7C 0004F CLRO = (SPS : 0578) 
7E 04 00051 CLRL -(SP) : 
OC AE 9F 00053 PUSHAB OUT_DSC : 
10 AE 9F 00056 PUSHAB OUT DSC : 
1C AE 9F 00059 PUSHAB IN_DBSC : 
000000006 00 06 FB 9005¢ CALLS #6, SYSSTRNLOG : | 
00000629 «BF 50 D1 0006 CMPL STATUS, #1577 : 0579) 
0B 13 O006A BEQL : 
16 50 €9 0006C BLBC STATUS, 5$ : 0582 
08 AE bE D9 0006F MOVL OUT_DSC, IN_DSC 3 0588 
BB 52 OA F3 00073 AOBLEQ #107 I, 2$ : 036¢ 
4040 8F BB 00077 4$: PUSHR #*M<R6,SP> : 059 
900000006 00 98 FB 0007B CALLS #2, STRSCOPY_DX : 
05 50 €8 90082 BLBS STATUS, 7$ : 
50 DD 00085 5$: PUSHL T : 0595 
67 01 FB 00087 6$: CALLS #1, LIBSSTOP : 
04 0008A 7$: ET : 0598 
; Routine Size: 139 bytes, Routine Base: $CODE$ + 0000 
; 605 0599 1 END ! End of SHARE_TRNLOG | 
3 606 0600 0 ELUDOM | 
: PSECT SUMMARY 
5 Name Bytes Attributes 
: $CODES 139 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


3 Library Statistics 


VOs-OOT ee” Shoreceentos. (nane) 1fogeo-t9ge 93:35:88 btScsumemasterscor 
ae ees > Syabels coneecee Pages Processing 
File Total Loaded Percent Mapped Time 
eee SbUASe:Lopcon OBJIOPCOmLI8.132;1 633 i i en 00:00: 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:SHARE/OBJ=O0BJ$:SHARE MSRC$:SHARE/UPDATE=(ENH$: SHARE ) 


; Size: 603 0b: 85.3 + 1256 data bytes 
Run Time: 
Elapsed Time: 09:1 £8 
Lines/CPU Min: 1116 


povense/CPy-Hie 12055 
—— Used: 101 pages 
ilation Complete 
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